home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 October / 64er_Magazin_92-10_1992_Markt__Technik_de_Side_A.d64 / highsc schreiben (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  350b  |  20 lines
  1. 100 for a=1 to 10
  2. 110 pl$(a)="mueller"+str$(a)
  3. 120 pu(a)=100*a
  4. 130 next a
  5. 140 gosub 16000
  6. 150 end
  7. 1650 open 1,8,15
  8. 16000 rem higscoreliste schreiben
  9. 16050 open 1,8,15
  10. 16060 open 2,8,2,"highscore,s,w"
  11. 16070 inpuyt#1,f,f$,t,s
  12. 16080 if f<>0 then 16140
  13. 16090 x=0
  14. 16100 for in = 1 to 10
  15. 16110 if pu(in+x) < pn then print#2,na$:print#2,pn:x=1
  16. 16120 if pu(in+x) >pn then prin#2,pl$(in+x):print#2,pu(in+x)
  17. 16130 next in
  18. 16140 close2
  19. 16150 close1
  20.